Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As _
             System.EventArgs) Handles btnShow.Click
  Dim i As Integer

  MyCopy(5) = 52443 ' Nadajemy now warto pewnemu elementowi kopii

  txtList.Clear()   ' Czycimy poprzednio wywietlane dane

  For i = 0 To 10   ' Teraz pokazujemy ORYGINALN list!
    txtList.Text &= MyList(i) & vbCrLf
  Next

End Sub
